Fix recent commit

diff --git a/which-key.el b/which-key.el
index 2f89f400ae5c8c46d5d90b4c3bf0d4e4dccf198b..d66cec5d2614732dad97cf1c4760b305747b49d2 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1824,9 +1824,6 @@ ones. PREFIX is for internal use and should not be used."
                 (setq bindings
                       (append bindings
                               (which-key--get-keymap-bindings def t key))))
-               ((and def (consp def))
-                (cl-pushnew (cons key-desc (car def))
-                            bindings :test (lambda (a b) (string= (car a) (car b)))))
                (t
                 (when def
                   (cl-pushnew
@@ -1838,6 +1835,7 @@ ones. PREFIX is for internal use and should not be used."
                           ((eq 'menu-item (car-safe def)) "menu-item")
                           ((stringp def) def)
                           ((vectorp def) (key-description def))
+                          ((consp def) (car def))
                           (t "unknown")))
                    bindings :test (lambda (a b) (string= (car a) (car b)))))))))
      keymap)